home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earkit
/
news
/
thor
/
rexx
/
edge
/
asciipic.edge
next >
Wrap
Text File
|
1998-05-24
|
843b
|
35 lines
/* ASCIIPic.edge
** $VER: ASCIIPic.edge 1.1 (11.1.96)
** Original script by Troels Walsted Hansen
** Convert picture to ASCII and include it in EDGE. Uses
** 'ilbm2ascii' v1.4 by Tobias Ferber.
*/
options results
/* needs EDGE functions */
if(substr(address(),1,4) ~= "EDGE") then
do
say "This script should only be started from inside EDGE."
exit 20
end
else edgeport = address()
/* request a filename, convert to ascii and include in EDGE */
address(edgeport)
REQUESTFILE title '"Select ILBM to convert and include:"'PATH '"SD0:"'
picfile=result
if(rc ~= 0) then exit
lastchar = right(picfile,1)
if(rc ~= 0 | lastchar = "/" | lastchar = ":" | picfile = "") then exit
address command "run >nil: ilbm2ascii "||'"'picfile'"'||" >t:EDGEASCIIPicture"
INCLUDE "t:EDGEASCIIPicture"
address command "delete >nil: t:EDGEASCIIPicture"
exit